home *** CD-ROM | disk | FTP | other *** search
/ Power Disk 64 1998 4 / Power_Disk_64_98-04_1998_Lagune_de_Side_A.d64 / main menu (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  68 lines
  1. 0 print"[153][147]":poke53280,12:poke53281,0:gosub9000
  2. 1 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  3. 2 print"[145][159]    [208][207][215][197][210] [196][201][211][203] 64 - [205]ain [205]enu 4/98      "
  4. 3 print"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  5. 4 print"[159]1 = [208].[210].[199].s"
  6. 5 print"2 = [205]usic [195]orner"
  7. 6 print"3 = [199]ame [195]orner"
  8. 7 print"4 = [201]nside                   5 = [205]ix [211]upreme"
  9. 8 print"6 = [215]hazup 4/98"
  10. 9 print"7 = [210][197][211][197][212]"
  11. 10 input"[215]elche [206]ummer ";a:print"[145][145][145]"
  12. 11 if a<1 or a>7 then0
  13. 12 if a = 1 then goto100
  14. 13 if a = 2 then goto200
  15. 14 if a = 3 then goto305
  16. 15 if a = 4 then goto405
  17. 16 if a = 6 then goto505
  18. 17 if a = 7 then goto600
  19. 18 if a = 5 then goto705
  20. 100 print"[147]"
  21. 101 print" [208].[210].[199].s "
  22. 102 print"[211]eite 2 einlegen"
  23. 103 geta$:ifa$=""then103
  24. 105 poke828,0
  25. 106 print chr$(147) chr$(17)
  26. 107 print "load"chr$(34);"p.r.g.s";chr$(34); ",8
  27. 108 [153] [199](17) [199](17) [199](17) [199](17) "run"
  28. 109 [151]631,13:[151]632,13:[151]198,2
  29. 110 [153] [199](19);:[128]
  30. 200 [153]"load"
  31. 201 [153]" (NULL)usic lenorner "
  32. 202 [153]"(NULL)eite 2 einlegen"
  33. 203 [161]a$:[139]a$[178]""[167]203
  34. 205 [151]828,0
  35. 206 [153] [199](147) [199](17)
  36. 207 [153] "load"[199](34);"music corner";[199](34); ",8
  37. 208 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  38. 209 poke631,13:poke632,13:poke198,2
  39. 210 print chr$(19);:end
  40. 305 poke828,0
  41. 306 print chr$(147) chr$(17)
  42. 307 print "load"chr$(34);"game corner";chr$(34); ",8
  43. 308 [153] [199](17) [199](17) [199](17) [199](17) "run"
  44. 309 [151]631,13:[151]632,13:[151]198,2
  45. 310 [153] [199](19);:[128]
  46. 405 [151]828,0
  47. 406 [153] [199](147) [199](17)
  48. 407 [153] "load"[199](34);"inside";[199](34); ",8
  49. 408 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  50. 409 poke631,13:poke632,13:poke198,2
  51. 410 print chr$(19);:end
  52. 505 poke828,0
  53. 506 print chr$(147) chr$(17)
  54. 507 print "load"chr$(34);"whazup";chr$(34); ",8
  55. 508 [153] [199](17) [199](17) [199](17) [199](17) "run"
  56. 509 [151]631,13:[151]632,13:[151]198,2
  57. 510 [153] [199](19);:[128]
  58. 600 [158]64738
  59. 705 [151]828,0
  60. 706 [153] [199](147) [199](17)
  61. 707 [153] "load"[199](34);"mix supreme";[199](34); ",8
  62. 708 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  63. 709 poke631,13:poke632,13:poke198,2
  64. 710 print chr$(19);:end
  65. 9000 ifa=0thena=1:load"mj's f*",8,1
  66. 9001 sys49152
  67. 9002 return
  68.